home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 January / 64er_Magazin_87-01_1987_Markt__Technik_de.d64 / brueche kuerzen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  124b  |  4 lines
  1. 10 input"zaehler";z:input"nenner ";n:a=z:b=n
  2. 20 r=a-int(a/b)*b:a=b:b=r:ifr>0then20
  3. 30 print:print"gekuerzt:":print"zaehler:"z/a:print"nenner: "n/a
  4.